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HISTORICAL PERSPECTIVE 



FORTH was created by Mr. Charles H. Moore In 
1969 at the National Radio Astronomy Observatory, 
Charlottesville, VA. It was created out of dissatisfaction 
with available programming tools, especially for obser- 
vatory automation. 

Mr. Moore and several associates formed FORTH, 
Inc. in 1973 for the purpose of licensing and support of 
the FORTH Operating System and Programming Lan- 
guage, and to supply application programming to meet 
customers' unique requirements. 

The Forth Interest Group is centered In Northern 
California, although our membership of 2,000 is world- 
wide. It was formed in 1 978 by FORTH programmers to 
encourage use of the language by the interchange of 
ideas through seminars and publications. 



PUBLISHER'S COLUMN 



We're deep into the planning and arrangements for 
the FIG Convention and the FORML Conference. If you 
haven't made your reservations, call right away, we 
might be able to get you into the FORML Conference or 
the Convention Banquet. Plan on coming to the Con- 
vention anyway. Remember the dates and places are ; 

FORML Conference, November 26, 27, & 28 
Asilomar, CA 

FIG Convention, November 29 
Villa Hotel, San Mateo, CA 

The other big news! FORTH-79 STANDARD is 
available!!! Call (415) 962-8653 or send in your order, 
today! $10.00! 

Many publications are printing information about 
FORTH. We don't get them all, so please send in copies 
so we can thank the editors and add to our collection. 

FIG had a booth at the Mini/Micro show and much 
Interest was generated among attendees which carried 
over into a number of manufacturers that were exhibit- 
ing. 

Membership is fast approaching 2,000. We now 
have members all over the world including the People's 
Republic of China and Yugoslavia. See the listings of 
meetings for information about how you can form a FIG 
chapter. Just a few easy steps and you'll have a time 
and place to share information. 

Look forward to seeing everyone at the FORML 
Conference and the FIG Convention. 



Roy Martens 



Page 95 



FORTH DIMENSIONS II/A 



BALANCED TREE 
DELETION IN FASL 



Douglas H. Currle, Jr. 
Nashua, NH 



Abstract 

FASL (Functional Automation 

Systems Language) is a derivative of 
FORTH containing significant modifi- 
cations. This paper discusses one of 
these, the FASL tree, an implementa- 
tion of the AVL (height balanced) 
tree. FASL trees are a data type of 
the language, and are used in the 
implementation of the dictionary. An 
algorithm for deletion in FASL trees 
is presented, as well as a FASL 
program to implement the algorithm. 

Key Words and Phrases 

deletion, height-balanced trees, 
binary trees, search trees, FORTH. 

CR Categories 

3.7, 4.10, 4.20, 4.34, 5.25, 5.31 

Introduction to Height-Balanced Trees 

The use of balanced trees has 
becotoe almost commonplace In data 
base management, and Is seeing limited 
use in symbol tables. Many systems 
would benefit from the use of balanced 
trees, but their designers could not 
afford the time to develop the algo- 
rithms. A case in point is the 
extensive use of hashing In "high- 
speed" microcomputer assemblers* 
Hashing techniques have significantly 
improved the performance of many 
assemblers, but analysis of these 
routines shows a best case perfor- 
mance on the order of several milli- 
seconds (due to the inefficiency of 
division, or pseudo-random number 
generation on microprocessors). FASL 
trees, on the other hand, have a 



guaranteed worst case performance of 
far less than a millisecond even in 
fairly large (over five hundred node) 
trees. 

In FUNCTIONAL* systems, FASL trees 
are used in a line editor, data stor- 
age directories, FACT (a truth table 
compiler), message routing tables, 
microcomputer assemblers, as well as 
the FASL dictionary. A general pur- 
pose microassembler uses a balanced 
tree (fields) of balanced trees (con- 
tents) to describe the target micro- 
instruction. The use of multiple 
trees allows identical keys in 
different contexts (e.g., label names 
and macro names). 

The height-balanced tree was first 
proposed by two Russian mathemati- 
cians, G. M. Adel'son-Vel' skiy and E. 
M. Landis in 1962 (hence AVL tree). 
The idea is to maintain a binary tree 
so that the height of the subtrees at 
any node differ by at most one. The 
technique incurs a penalty of only 
two extra bits per node (FASL uses an 
8-bit byte), and makes it possible to 
search for, insert, or delete a node 
with a worst case of O(log N) opera- 
tions (where N is the number of 
nodes) . 

Introduction to FASL Trees 

Algorithms for search and inser- 
tion in AVL trees are presented by 
Knuth (The Art of Computer Program- 
ming, Vol. 3, Section 6.2.3); these 
two algorithms were implemented in 
machine code and (along with Indirect 
Threaded Code) became the basis for 
FASL. The deletion algorithm was not 
implemented at this time for two 
primary reasons: Knuth didn't give 
It, FASL didn't "need" it. Deletions 
occur much more rarely than inser- 
tions or searches; FASL lived for 
over a year with no delete operation. 

♦Functional Automation Gould Inc. 
3 Graham Drive 
Nashua, NH 03060 
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For example, when a file was deleted 
from a FASL directory, the entire 
directory was reconstructed without 
the "deleted" node. The time penalty 
incurred was not significant because 
directories are small (for FASL 
trees), and had to be copied anyway 
to be sent to the disk. (FASL lives 
in a message enviroment . The disk is 
in another Cyblok*). 

After an overview of FASL trees 
and their use, the remainder of this 
paper will deal with the development 
of a FASL tree deletion program in 
FASL. For an introduction to binary 
search trees, see Knuth (The Art of 
Computer Programming, Vol. 3). 

FASL trees are composed of a number 
of sixteen byte nodes (see Figure 1). 
The tree is identified with the 
address of its head node. From the 
head node we may find the root node, 
and thus the entire tree. The head 
node contains a pointer to its root 
node, a pointer to its available nodes 
list, and an integer which is the 
tree's height. 

All nodes other than the head node 
contain an eight byte key, a left 
link, a right link, a one byte balance 
factor, and three uncommitted bytes. 
The key is used to access the node. 
Given a key, the search routine 
compares It to the key at the root 
node. If it is less, the search 
continues with the node identified 
(pointed to) by the left link. If it 
is greater, the search continues with 
the node identified by the right link. 
The search terminates when it matches 
the key (success), or reaches a null 
link (failure). The null link is 
represented by zero. The balance 
factor is the height of the right 
subtree minus the height of the left 
subtree. The insertion routine always 
leaves the tree balanced, i.e., the 

*Cyblok is a registered trademark of 
Functional Automation/Gould Inc. 



balance factor is always minus one, 
zero, or plus one. 
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The insertion routine obtains new 
nodes from the free nodes list. This 
list is simply a number of nodes 
linked with their right links. A 
null right link indicates the end of 
the free nodes list. When the inser- 
tion routine needs a free node, it 
obtains its address from the free 
nodes list pointer in the head node, 
and replaces it with the right link 
of that node. If the free nodes list 
pointer is null, then the tree is 
full. 

The technique used by the insertion 
routine to maintain tree balance is 
essentially the same as for deletion. 
Basically, four cases arise in Inser- 
tion when the tree must be rebalanced: 
single or double rotation, left or 
right. The discussion is postponed 
until the section on deletion. 
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To get a feeling for the efficiency 
of FASL trees, consider a dictionary 
of five hundred nodes. If this dic- 
tionary was stored as a linked list, 
a worst case access time of five hun- 
dred compares would be incurred, with 
an average access time of two hundred 
fifty compares. Stored as a FASL 
tree, this dictionary has a worst case 
access time of nine compares, an 
average of eight. The numbers become 
even more convincing as the dictionary 
grows in size. 

FASL Tree Operations 

FASL provides operations for cre- 
ating trees, inserting and searching 
for nodes, and accessing the uncom- 
mitted data in a node. For example, 
the FASL text 

100 TREE SYMBOLS 

creates a tree named SYMBOLS with two 
hundred fifty-six available nodes (the 
radix is hexadecimal). Assuming there 
is a string of text in an area named 
PAD which is to be used as a key to 
access the tree, 

PAD SYMBOLS LEAF 

inserts a node in the tree SYMBOLS 
with this key. LEAF leaves a boolean 
flag on the stack to indicate success 
or failure, and if successful leaves 
the address of the new node on the 
stack under the boolean. 

Usually, new nodes are initialized 
with some data. The following FASL 
text will insert a node with the key 
in PAD (as above), and initialize its 
uncommitted bytes with constants: 

12 3456 PAD SYMBOLS LEAF 
IF F#! 

ELSE DR0P2 FI 



Later, the data may be retrieved 
onto the stack as follows: 

PAD SYMBOLS FIND 
IF Ff/@ 

ELSE FAIL FAIL FI 

If the string in PAD Is the same as 
was used in the preceding example to 
insert the node, then the data re- 
trieved will be 12 3456. If another 
string is in PAD, then the data 
retrieved will be 00 0000, unless a 
node has been inserted with this 
string as a key, in which case the 
data associated with this node will 
be retrieved. 

From the example, it should be 
clear how to use the FASL trees for a 
symbol table for an assembler. Text 
is read to PAD until a delimiter, and 
then inserted in the tree. In the 
case of labels, the node would be 
Initialized with the current pseudoPC, 
and a flag byte to indicate "label." 
If the Inserted text was a macro name, 
the node might be initialized with a 
pointer to the macro text and a flag 
byte to Indicate "macro." Alterna- 
tively, separate trees may be created 
so that Identical keys may be used as 
macro and label names. Later, when a 
label or macro is used, it may be 
looked up in the tree to find its 
corresponding values. 

The TREE operation allocates space 
for the tree in the FASL Global Area 
(where code for colon-words is 
placed). Another operation, TREEINIT, 
is provided to initialize trees in 
space that the FASL user has allocated 
(e.g., in FUNCTIONAL Cybloks there is 
a minimum of 256K bytes of "Public 
Memory" which is accessed through 
"Windows," and is not part of the FASL 
Global Area). The TREEINIT operation 
is often used in the Local Area (space 
allocated on the Return Stack) or in 
Public Memory. 
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The Deletion Algorithm for FASL Trees 

A deletion algorithm for binary 
trees, and the steps required to adapt 
this algorithm to balanced trees are 
provided by Knuth (The Art of Computer 
Programming, Vol. 3, Sections 6.2.2 
and 6.2.3). The details of the bal- 
anced tree deletion algorithm are 
presented here, but first a review of 
binary tree deletion. 

Deleting a node from a binary tree 
may be decomposed into four cases 
(see Figure 2). Call this node "X" . 
In the first two cases one of the 
links of X is null, the other link is 
a "don't care" (i.e., a pointer or 
null). In both cases the other link 
simply replaces the link pointing to 
X. In case three the right son of X 
has a null left link. In this case 
the left link of X replaces the left 
link of its right son, and the right 
link of X replaces the link pointing 
to X. In case four the symmetric 
successor of X must be found. This is 
done by following left links starting 
with the right son of X until a null 
link Is encountered. The left link 
of the father of the sjTnmetric suc- 
cessor is replaced by the right link 
of the symmetric successor. The left 
and right links of the symmetric 
successor are replaced by the respec- 
tive links of X, and the link which 
points to X is replaced by a pointer 
to the symmetric successor. 

In all cases the essential left- 
to-right order of the nodes is pre- 
served. The deleted node is inserted 
in the free nodes list, and the algo- 
rithm terminates. 

All that is required (!) to adapt 
this algorithm to balanced trees is 
to insure that the balance is main- 
tained after the deletion. An impor- 
tant observation is that the effect 
of deletion on the binary tree is to 
reduce the length of a single path 
through the tree by one. 



This path begins at the head, and 
ends in cases one and two with the 
node which re- placed X (i.e., the 
node which is pointed to by the link 
which used to point to X). In cases 
three and four the path ends with the 
node which used to be the right son 
of the symmetric successor of X. 
(Note that the ending node may actu- 
ally be null.) 



TREE DELETE Oil 

HE". 





The path may be represented as a 
list of pairs 

(N.O , f.O) (N.l , f.l) 
... (N.i , f.i) 

where each N.j is a node address, and 
each f.j Is a direction (-1 left, +1 
right). N.O is the head node, f.O is 
the +1 (since the "right link" of the 
head node points to the root). The 
pair (N.i , f.l) Is the end node minus 
one, and Identifies the end node of 
the path (which, again, may be null). 
Rebalancing may be required at each 
node In the path, starting with node 
(N.l , f.l), working backwards. This 
Is in contrast to Insertion where re- 
balancing Is required for, at most, 
one node. 
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Adapting the deletion algorithm 
for binary trees to balanced trees 
reqviires that as the tree is searched 
for the node to be deleted (and for 
its symmetric successor in cases three 
and four), a list of pairs describing 
the path is created. Once the node 
is deleted, nodes are rebalanced back 
along the path until a termination 
condition is reached. . 

The path is constructed on an 
auxiliary stack. The operations 
"Push(x,y)" to push a pair, "Pop(x,y)" 
to pop a pair, and "Top(x,y)" to read 
the top pair without popping are used, 
as well as the capability of saving 
and restoring the path stack pointer. 

Using the notation "Link(-1 , M)" 
for left link of node M, "LinkCl , M)" 
for right link of node M, "Bal(M)" 
for the balance factor of node M, and 
"Key(M)" for the key of node M, the 
following is a detailed algorithm for 
deleting the node with key K in a 
balanced tree. 

(1) Initialize local path stack. 
Push(HEAD , +1). 

Set X to Link(+1 , HEAD). 

(2) If K is less than Key(X), go to 
(3) moving left. 

If K is greater than Key(X), go 
to (4) moving right. 
Otherwise go to (5), key is 
found . 

(3) If Link(-1 , X) is 0, go to 
(11), key is not in tree. 
Otherwise Push (X , -1), set X 
to Link(-1 , X), and go to (2), 
keep searching. 

(4) If Link(l , X) Is 0, go to (11) 
key is not In tree. 

Otherwise Push(X , 1), set X to 
Link(l , X), and go to (2), keep 
searching. 



(5) There are four cases: 

(5a) Link(l , X) = ; 
Top(N.k , f.k). 
Set Link(f.k , N.k) to 
Link(-1 , X) . 
Go to (7) to rebalance. 

(5b) Link(-1 , X) = ; 
Top(N.k , f.k). 
Set Link(f.k , N.k) to 
Link(l , X) . 
Go to (7) to rebalance. 

(5c) Link(-1 , Link( 1 , X)) = ; 
Top(N.k , f.k). 
Set Link(-1 , Link(l , X) ) 
to Link(-1 , X) . 
Set Link(f.k , N.k) to 
Link(l , X). 

Set Bal(Link(l , X)) to 
Bal(X) . 

Go to (7) to rebalance. 

(5d) Otherwise ; Push(X , 1), set 
Z to Llnk(l , X) . 
Save path stack pointer in 
PSP. 

Go to (6) to find symmetric 
successor . 

(6) Push (Z , -1). 

Set Z to Link(-1 , Z). 

Repeat this step until 

Llnk(-1 , Z) = 0. 

Finally, Top(N.k , f.k). 

Set Llnk(-1 , N.k) to 

Link(l , Z). 

Set Link(-1 , Z) to Link(-1 , X). 
Set Link(l , Z) to Link(l , X). 
Now swap PSP and the path stack 
pointer. 

Pop(N.k , f.k) , 

Top(N.k , f.k), Push(Z , 1), 

substituting the symmetric 

successor for the deleted node 

on Che path stack. 

Swap PSP and the path stack 

pointer again to restore. 

Set Link(f.k , N.k) to Z. 

Set Bal(Z) to Bal(X). 

Go to (7) to rebalance. 
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(7) Insert X Into the free nodes 
list. 

The algorithm proceeds as follows 
beginning with the last pair of the 
path: 

(8) Pop(N.k , f.k). 

If N.k = HEAD, set Height(HEAD) 
to Height(HEAD)-l decreasing the 
height of the tree, and go to 
(11) terminating the algorithm. 
Otherwise go to (9). 

(9) There are three cases based on 
the balance factor: 

(9a) Bal(N.k) = ; Set Bal(N.k) 

to -f.k, and go to (11) 
terminating the algorithm. 

(9b) Bal(N.k) = f.k ; Set 
Bal(N.k) to 0, and go to (8) 
taking one more step back 
along the path. 

(9c) Bal(N.k) = -f.k ; 

Rebalancing is required, go 
to (10). 

(10) There are again three cases. 
(Referring to Figures 3, 4, and 
5, A is N.k, a is the subtree 
containing the path the algorithm 
has been following, B is the node 
pointed to by the opposite link 
from the link which points to 
a, Link(-f.k , N.k)): 

(10a) Bal(A) = Bal(B) (Figure 3); 
Set Bal(A) and Bal(B) to 0. 
(single rotation) - 
Set Link(-f.k , A) to 
Llnk(f.k , B). 
Set Link(f.k , B) to A. 
Top(N.k , f.k), set Link(f.k 
, N.k) to B. 

Go to (8) taking one more 
step back along the path. 

(10b) Bal(A) = -Bal(B) 

(Figure 4); If Bal(X) 
Bal(A), then set Bal(A) to 



-B«l(X) and Bal(B) to 0. 

Othervise set Bal(A) to 

and Bal(B) to -Bal(X). 

Set Bal(X) to 0. 

(double rotation) - 

Set Link(-f.k , A) to 

Link(f.k , X). 

Set Link(f.k , X) to A. 

Set Llnk(-f.k , B) to 

Link(-f.k , X). 

Set Link(-f.k , X) to B. 

Top(N.k , f.k), set Link(f.k 

, N.k) to X. 

Go to (8) taking one more 
step back along the path. 



FIGURE ) 

CASE I (TWO SITUATIONS - REFLECT DIAGRAM LEFT/HIGHT) 




•<EW 3ALANCE 
A C 
B f 



NEW SUBROOT B 

HEE? FIXING, . . 
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(10c) Bal(B) - (Figure 5); 
Set Bal(B) to -Bal(A). 
(single rotation) - 
Set Llnk(-f.k , A) to 
Link(f.k , B). 
Set Link(f .k , B) to A. 
Top(N.k , f.k), set Link(f.k 
, N.k) to B. 

Go to (11) terminating the 
algorithm. 

(11) Deallocate path stack. Done! 



F16URC « 

HCBALAWCE 
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Implementing the Algorithm in FASL 

A FASL program to implement the 
balanced tree deletion algorithm is 
relatively straightforward (see the 
listing below). Some preliminary 
colon-words are defined to access the 
links, and to access a Local Stack. 
RCRUMB and LCRUMB are defined (in 
commemoration of Hansel and Gretel) 
for adding pairs to the path stack; 
then colon words for the three cases 
encountered in rebalancing are 
defined. 

The main colon-word, DROPLEAF, 
takes stringname and treename par- 
ameters just like LEAF and FIND, but 
leaves no return values since it is 
always successful. The PROG... 
ENDPROC pair allocate and deallocate 
a Local Data Area for the path stack 
and associated variables. For the 
most part, DROPLEAF follows the 
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deletion algorithm presented. Nested 
IF statements are used to evaluate 
the case constructs. The string 
compare in the first (search) WHILE 
loop tests for less-than directly, 
and examines FASL Registers (WO, Wl) 
to resolve the trichotomy. (This is 
an efficiency measure, and has to do 
with the fact that there is not guar- 
anteed to be a string delimiter in 
the node ' s key . ) 

Empirical tests show that DROPLEAF 
runs in the 50 to 100 millisecond 
range for trees with about 500 
nodes. For comparison, LEAF runs in 
the 0.1 to 1 millisecond range on the 
same trees. The large difference be- 
tween these runtimes results from the 
fact that LEAF is highly optimized 
machine code, only requires one rota- 
tion maximum, and does not require a 
path stack. As previously mentioned, 
DROPLEAF is used very infrequently, 
and there has been no incentive to 
implement it in machine code. 



( HZICHT BALANCED ) 

( TREE DELETE ) 

( 17»Ur80 ) 

( LOCAL DATA AREA ) 

( OFFSET ) 



) 



saved path stack poiDter 
path stack pointer 

address of link to node to be deleted 
stsrt of psth stack 



30 end of path stack + 1 



1,1 ) 

LLKlCe 2 + ? 

ELNK? « + » 
2,0 ) 

LUIK! 2 + ! 

SLNK! 4 + < 



2 4 



■D +! 4 'D S •! 



1.0 ) 

PUSH A 'E ? 
0,1 ) 

POP OFFFE * 

1.1 ) 

RCRUMB nUP PUSH OFFFF PUSH ; 
LCRUMB DUP PUSH SUCCEED PUSH 

3.2 ) 

SINCLROT 0VER2 LTZ? 

IF DUP RLNKS 0VES2 LLHK! 

SWAP OVER RLNK! 
ELSE DUP LLNK? 0VER2 RLHK! 

SWAP OVER LLNK! 
Fl ; 



: ROTCASEl FAIL OVER C! FAIL 0VER2 CI 
SINCLROT SWAPDROP FAIL SWAP ; 

: R0TCASE3 OVER Cf NEC OVER C! 
SINCLROT ; 

: R0TCASE2 0VER2 0VER2 0VER2 0VER2 - 3 + » 
SINCLROT 

SWAP NEC SWAP 0VER2 SWAP 
SINCLROT SWAPDROP 
0VER2 C? OVER CI? - 

IF DUP C* NEC SROT C! FAIL SROT C! 

ELSE FAIL SROT C! DUP C? NEC SROT C! Fl 
FAIL OVER CI 
SWAPDROP FAIL SWAP; 

: MOVEIR + DUP 6 ' Li ' g , 
( 2.0 ) 

( <snaK> <ttiaae> ) 
: DROPLEAF 
30 PROC 
8 'D 4 'D ! 
SWAP OVER 
RCRUMS 
4 HOVEUR 
WHILE DUP 

IF OVER OVER 8 + SLT? DUP 
IF OVIR 10 + W « - 
ELSE Wl « 1 - C# Fl 
ELSE FAIL FAIL Fl 
CONTINUE 

IF LCRUMB 2 
ELSE RCRUMB 4 Fl 
MO\TLIR 
WUILZND 
DROP 
SWAPDROP 
DUP 

IF DUP RLNR.# 
IF DOT LLNKf 

IF DUP RLNK? DU? LLNK9 
IF 4 -D 9 2 'D < RCXDMB 
DUP 

REPEAT LCRUMB SWAPOKOP DOP LLNK9 DD? UMt 

UNTIL 

0VER2 LLMKf OVER LLHR! 
DUP RLNK9 0VER2 LLMi:! 
0VER2 RLNKt OVER RLMK! 
SWAPDROP 
DUP 2 'D « : 
ELSE OVER LLNKf OVER LLMK! 
RCRUMB 

Fl 

OVER C9 OVER CI 
ELSE DUP RLNK9 Fl 
ELSE DOP LLNK? Fl 
6 'D « ! 

OVER OA + » OVER RLNRI OVER OA + ! 
REPEAT 

POP FOP 0VES2 OVER S«UF - 
IF DUP d DDF 

IF 0VEI2 * OFF AID 

IF OVER 3 + OVER ♦ ? DUP C» 

IF 0VE12 orr Airo over c? - 

IF kOTCASE2 
ELSE iOTCASEl Fl 
ELSE R0TCASE3 Fl 

POP POP DUP PUSH SWAP DUP POSH -3+1 
ELSE FAIL SWAP C! DROP PAIL Fl 
ELSE DROP C! SOCCEEC PI 
ELSE 2 + ■»-! SDCCEEO PI 
UNTIL 
ELSE DROP PI 
DROP 
ENDPROC 
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FASL Credits 

FASL arose in response to a need 
within FUNCTIONAL for a simple and 
efficient interpreter for system 
software development. An early FASL 
Manual (1977) was written with 
contributions from Eric Frey, Michel 
Jullen, Roland Silver, and Ron Lebel. 
The idea of implementing the dictio- 
nary as a height balanced (AVL) tree 
came a year later, and with it the 
FASL TREE data type. 

FASL was also made possible by the 
unselfishness of G. M. Adel'son- 
Vel'skly and E. M. Landls, Donald E. 
Knuth, and Charles Moore. 

The author has recently learned of 
two language processors which use AVL 
Trees for symbol tables, but not as a 
data type of the language: a MUMPS 
system (Dave Brldger for Tandem), and 
the IBM FORTRAN H Compiler. The cur- 
rent status of these language systems 
is not known by the author. 

Special thanks to Kit Andrews for 
typing the manuscript on Functional 's 
Wang Word Processor, and patiently 
Illustrating the final versions of 
the Figures. 

Assembler Listings for Search and 
Insertion 

The following pages contain 
exerpts from the FASL listings 
pertaining to tree search and 
insertion for the 6800. Referring to 
these listings: 



(1) The names used in the comments 
correspond to those used in 
Knuth's Algorithm 6.2.3A. 

(2) The routines use variables HEAD 
and AVAIL to identify the tree 
and free nodes list on each 
Invocation; the key should be in 
the eight byte area K. 

(3) The variable VTV may be initial- 
ized to point to the default 
subroutine DEFNOT which causes a 
"failure" return on an insertion 
attempt to a full tree, or to a 
user supplied subroutine which 
allocates a new free nodes list 
(with at least one node) by 
placing the address of the list 
In AVAIL. 

(4) Trees are Initialized by placing 
a starting address in HEAD, an 
ending address in AVAIL, and 
calling the routine BTSIUP. On 
entry, AVAIL-HEAD should be 
greater than thirty-two, and 
zero mod sixteen. On exit, HEAD 
will not be modified and will 
point to the head node, and AVAIL 
will point to the free nodes 
list. 

(5) All tree routines are object code 
relocatable. 

(6) Quickie symbol table for these 
listings: 



BTSIUP El 51 



FINDIT 
BIS I 
DEFNOT 



E168 
E17D 
E660 



DO 



HEAD 
AVAIL 

VTV 



02 
C4 

CO 



tree initial- 
ization 
tree search 
tree Insertion 
default tree 
overflow sub- 
routine 

key for search & 
insertion, 8 
bytes 

pointer to tree 
pointer to free 
nodes list 
overflow transfer 
vector 



FORTH DIMENSIONS I 1/4 
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mjUHTft Tin SBAUl AKD VOXMX 



; outer MDOtX DiZA MCUIAIIOM 



60 0000 

61 ooa 

61 OOOt 



7* 

7! 

76 ooa 

77 00C8 
7B OOCA 
7» OOCC 
80 OOCt 
Bl 0000 
SI 

S3 



b tlir M CS MCZT: 
7 C12L H CC 

• eii3 a; m 

) U13 V 03 



1 U27 m d 

2 1129 w CC nn: 
] ti2s M n 

4 U2S CI 10 

3 KlU 14 03 

6 till 7c ooa 

7 E134 D7 CS SQK: 
I 

» n36 M a 

D UM K C* 
1 Q3A 1* C3 

t 

] nsc St CC 
I cut 6r 04 

J E140 br 03 

b 

7 U41 *« C6 

) eu* w C7 

) E146 DC a 

} 11*8 a; 0* 

L a4A C7 03 

I 

I a4C DC CA 

> CAt or c* 

i UX 39 



ik9 

J so 

331 U31 
352 El 32 
333 tl33 
354 E133 
333 £137 
356 K13* 

337 £131 

338 C150 
35» 

360 U3P 30 a 



4r 

3f 

M a 

•D 3A 

DP C* 

BD 36 

07 CI 

DP CA 



363 tl65 ' 

366 n66 I 

367 E167 ] 



IQD 000 
too »T»*1 
too HUIKI 



iqu ATAIL+2 
igO Tf2 

CQO 0*'2 

Ego 



; Tin ovEurtOH Tunm ncni n sni mot umu 

POUm TO THE DUCUnO MDC 

pourm TO tooT op awailabu worn Lirt 

■■ lEDS All arm to rii 
(V mot UMDLXHS niKKrniB 
POK onitpw or allotted aaoa 
OMD <- POLinu TO Tin Ducurtn mtc, oi stait 
07 nn SPACE poi znTuuzATiaa -mnrp- 

ATAIL <- POOnn TO LIST OP Pitt WOUS. <» UB OP 

Pin iTta FLU OK poa 'nsznr' 

RIIDP DOS BAB AMB AfAXL TO CUAR A HBt ULAKl 
. TIB AMD A PIB NOOCS LIST. AVAIL IS MDDI7IID IT 
miDP A» ALUKT. 



tn. EiciT ims 



: MOI PnHAT 

■OM(O) lAUUia 1 

MOMd} PLA6 1 

N0Ot<2) LirrUJK 1 

inOt(4) tlCTTLIlK 1 

H0DI(6) VALUE 1 

MOBCd) EST B 

i PUBnc AND UStttIK 

HAA s ; S -> 1<Q> 



US S 
SIX Q 
lilAI 9*1 
AOOl #L0 

•CC sac 

DK S 
STAI 5+1 



LDt Q 
CU 1 0* 
CU X 03 



un I 

m AVAIL 
ITS 



: s n It. 
: q IS pAicn or s 

: Tizs IS tn iia or a mook 

; Wm TIAI B AUttXS US t*-! 

; ana wAxnT limit 

; SIGIAL Vm or U5T 

: T -> i<KAD> . UTt Pourm to uot 
: I -> AVAIL . SAR pomn n mt ust 



ITS! inTULmiioi 



CLIA 
CLU 

Ut SAUI 

sn T 

Ml SAUI 

SIX s 
STX t 

HA im 

US z 02 



: MAB A TUX OCSdlPm. A IIDLL KX 
; A Pin UST BAUD OH PAIAMEmS 

BAD stah op ran staqi 
AVAIL tm OP PIB stack p 
i SAUI oiAu A worn suet 

: Po uriB TO mot n t 
; Yourm TO AVAIL n t 



AUMC LtmnK 



371 E16S 
371 tlU 

373 ate 

37* 

373 dU 1 
376 El 70 3 

377 

37B C172 
37» tl7* 
3M tl76 
311 U7I 
3S2 a7A 
313 

3B4 tin 14 PP 



Dz a 

EE 04 

20 04 



or a 

BD 44 
22 P* 

26 27 
31 



pubh: m bad 

us Z OA 



wvir: ua I 0* 
iiQ mm 



PUB: STX P 



: PAiunt n cc z - o 



fcOOT OP TIB 











* 




' lAi-AIIC 


E9 Tin t LAI CI axd usm 










3B9 El 70 De Q 


ITSI: 


LDI BAD 




390 E17P DP C6 




SS T 




391 








391 E181 EE 04 




LSE X 0* 


; k<bao> -> s , s pourrs to uial 


393 E1I3 DP CS 




STX S 




39* E1I3 20 11 




MA SBAUS 




395 








396 E1B7 OE 00 


OVlPLWi 


LDZ VTT 


; Tin omnow TtAnm vectoi 


397 E1B9 AO 00 




JM X 00 




39B 








399 Ein Dt C4 


ALLOCTi 


LOZ AVAIL 


; ALLOCATt A PUB KK TQ TB TXB 


400 E18D 27 PI 




MQ oviru 


1 cna Pot twTT Pin list 


»0l 








402 HBP DP CC 




sn Q 


; Q <- ATAU 


*03 








40* E191 Et 04 




LIS Z 04 


; l<AVAXL> -> AVAIL 


405 tl93 DP C* 




SIX AVAIL 




406 El 93 Dl a 




LDX P 


: Simp PAIAXETtU POI CAIOn 


407 E197 96 CC 




LDAA 




*0I 1199 D6 (3> 




LDAB 04-1 




409 El 91 J9 




ITS 




410 








*11 tl9C AA 00 


COtMOV: 


LDAA 1 00 


; OnX lALANCZ PACTOI 


*13 E19I: 27 06 




MQ PDIMDV 




413 








41* tUO DP C8 




SIX 5 


; Q -> S 


413 ELA2 DC OE 




LDZ P 


: p -> T 


416 ElA* OP a 




sn T 




417 ElAA Dt CC 


PDMOV: 


us Q 


i Q 


418 








419 iiAi or ct 


StAKOBi 


SIX P 


: -> P 


420 








421 ElAA n> 12 




in CMP 


; K - t<?> 


422 ElAC 12 *S 




in ton 




*23 BIAZ 26 3D 




in mvL 




424 tin 39 




ITS 


; SOCOSS 1 1 1 








i UTUU VTCl CC Z * 1 


42* 








'J' 








*2S till ID 00 








429 1113 ID 00 








430 tll5 ID 00 




an ■ >Ta> 




431 tXV A7 00 


SAZIn: 


SXAA Z 00 


; StOU ACCOMTUklOU IJMXIS 


433 El 19 E7 01 




STAB X 01 




5??? ?! 








434 ElIC OS 




m 


; POST MCTimmi 


433 EIB8 39 




ITS 




437 








43B 




; EET COMPAU 


SUHOOTUC 


439 








440 El IE 96 DO 


EMP; 


UlAA I 


; t - nT<X> 


4*1 tlOO Al 01 




CHPA Z 01 




442 tlC3 26 21 




m tn 


; lETOn IP MIT IQOibL 


443 








AAA tie* 9* Dl 




UUA 




*45 tick Al 09 








444 HOB 24 22 




w tn 




447 








441 EICA 94 02 








449 UCC Al OA 








*S0 QQ 34 IC 




ME III 




*51 








*32 COO 94 03 




J^** i[ ft— 




433 tl03 Al 01 








45* E1D4 24 14 




IB m 




*55 








456 EIDI »4 D4 




LBAA t-M 




437 SIM Al OC 




OffA X OC 




*5I ODA 36 10 




ME B> 




*'* 








*4v El DC 94 D3 




1+5 




*41 dot Al OD 




OffA Z 00 




*43 EltO 34 OA 




mm - >- 












*44 CIB2 94 D6 




LBAA >.« 




443 tUA Al Ot 




»VA I OE 




444 C1S4 34 04 




















1+7 




449 El^A Al Or 




CMPA X op 








tn 


: Don Qoivm or ti6R itm 


'I! 








473 ZltO n 02 


HDVL: 


Lra X 02 




474 CLtr OP CC 












w M ,mm m 
COMW 












477 ttr3 BD 94 




m ALLflCT 


- fltfAD ran ki 1 j^An Hni 


471 B1P5 A7 02 
















410 tir9 20 OC 




•lA 












482 nn EE 04 


Win 


LUX X 04 


• " Q 


413 EXPO DP CC 








4|4 Eirr 24 91 




UK OMMW 


i CdWTIIHW Don TB iTfTT I TB 










4St E201 80 88 




m Aixoer 


■ OB AUOCAR B0 Kttf 






- 


• 1*1^ -> \<T> 


488 E203 t7 OS 




STU X 05 












490 E207 91 CC 


mtt* 


LUX 


' inrXALXB TB BH fffld 






CUU 




493 E20A 3r 




CUtl 


■ l<Q>, L<Q>, KQ>, D<Q> , P« 


493 1201 80 A4 




111*1 












49S E20D 94 K 




UkAA t 




4H E20r D4 Dl 




LDAI t+1 


; t -> X<Q> 


497 1211 80 44 




Ml SAXm 




498 








499 2213 94 D3 




LDAA K+1 




SOO 1313 04 03 




LDAI X+3 




301 nn 80 91 




HI SAXm 




501 








503 Z219 94 0* 




LDAA t+4 




504 nil 04 OS 




LDAI K+5 




505 t2lD 80 98 




Ml sanx 




506 








507 nip 94 D4 




LDAA t+4 




506 C221 D4 D7 




LDAI X+7 




509 E2Z3 ID 93 




in SAXOK 
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FORTH DIMENSIONS 11/4 



. an Dt Ca t-DJO : 
\ C227 » f) 
I eZI9 IJ M 

I niB a rr 

t uzs a 02 

} £227 20 U 

I 

1 EZ 04 

i 

S C23S or CA ABJlt 
I E23T 20 10 

7 

■ E2» 6r 00 ADJSt 

I CZ31 » ai 

Q nSO 22 0* 

1 

3 EZ3F Ul 00 

3 C241 ZZ 02 

4 E243 20 04 

) 

i E34S 6C 00 ADJ4: 
7 E24T a 04 



ADJUST UiitfCI FACntS ■ ■ 
LDI $ it- «S> 

Bit DC 

UI AfiJl 



) n4f or cz 

. E24B 9C CC 
I ta4D 26 U 



S47 U4r Dt d 
i4l t291 M 00 
549 t233 U 07 
SM 

SJl E2S3 17 00 
3U 

S93 1357 n a 
3)4 E23« ftC 03 
333 C23I 39 



. nu 4r 

i I2kl 47 00 
I C2»3 *C 
■ E3M 39 



' B3i3 Dl CA 
I E267 SS 
I KZ6a U 4* 

) 

I lau a 00 

[ C2iC 27 U 



I t2» ZZ 03 

' Z270 or cz 

I 

I K272 A* 04 
I C274 U 05 
L K27( 0> CA 
I U7I a7 02 
I C27A 17 03 
> Z27C «r 00 

i B7Z H CA 
' EZM U CI 
I C2I2 Bl d 
) E2»4 a7 04 

) UU C7 05 

I 

t BU A* 03 
I UtA tt 03 
k E2K M CI 
i Cn a7 04 
k n90 17 05 
r 1292 W 00 



LMJ forr 
ua 1 02 

MA ADJ2 



OA! 00 

in nv 

BU ABJ4 

Die X 00 
US X 03 
UA AaJ5 



an Q 

BME A&J3 



1294 9ft a 

e29« 0* a 

Z29I M CX 
Z29A a7 03 
Z29C 17 03 



US 1291 U 00 
M* HAD 27 41 
607 12A2 2B Dt 
WM 

609 OA* 6r 00 

610 EZA6 DC CS 

611 Z2AS 20 71 

613 

613 UAA 6r 00 

614 UAC n CA 

615 na 20 3C 



rutf LT c -I -> * > 
us> ... 



; ...->! 

; ems LOOP 



-1 -> B<F> 

LOO ... 



; ... -> T 

: OVTXl Vt UAOI Q 



; BALAKUK ACT 
LDZ S 
IDAA X 00 



UK X 03 
ITS 



: cna BAUuKi rACTO* or s 



: A -> ><s> 

; uonor ■xoBT or nxt 



: cna xs> aoumt a 



CLU 

ITAA X 00 

UCA 



on z 00 
Biq saotL 



; nil noDt lAijJwro 



aatx lALtfCi rAcnx or ■ 



; DODBU BOXBH IXTT . 

LU X 02 ; UU 

SIX r 



UOAA X 04 
LDAS X 03 
LOX 1 
ITAA 1 02 
STAB Z 03 
OK Z 00 

tAAA B 
UtAB »*1 
US r 
STAA Z 04 
STAB Z 05 

LBAA X 02 
litAB Z 03 



-> Xl> 

-> i<r> 



611 E2B0 11 00 
619 E2B1 26 3A 
620 
621 

623 B2B4 or CI 
623 nB6 6r 00 
k]4 UH A* 04 
635 UMA U 05 

626 13 BC DI CB 

627 12U 47 02 
62i 12C0 17 03 
629 130 6r 00 
630 

631 CC4 H a 

632 1206 D6 a 

633 na Dt CA 

634 I2C4 A7 04 

635 CCC 17 05 
63* 123 20 62 
637 

63S 

639 1290 or (X 

640 ant *f 00 

641 12M A* 02 

642 12D6 tt 03 

643 BM DB CI 

644 BDA A7 04 

645 tXK V 05 
6U tZOS 6r 00 
647 

64B BSD H a 

649 1212 Hi C9 

650 BZI* n CA 

651 BU A7 02 

652 SIS V 03 

653 BIA 20 44 
65A 

655 BSC 20 42 

437 



: aaa. balance rAcrot or i 



; SIKSLl KOTATl UCIT 

SIX r 

CU 1 00 
LAAA I 06 
U>AB 1 05 
Uff s 
STAA X 02 
STAB X 03 
cut I 00 



-> i<i> 

tfJi -> Ui> 



UkAA S : S - 

LDU »*1 
Ul 1 
STAA Z 04 
STAB X 05 

UA Tocmn 

: SDEU BOTAZl lOT 

sn F 

OJt X 00 
UU 1 03 
UMB 1 03 
US s 
ITAA Z 04 
STAB X 03 
OJ X 00 



-> B<t> 
S -> t<l> 



-> B^ 
L<1> -> ■<» 



Toriuii 



651 BU IS 04 


MOTS: 


Ul X 04 


639 BFO DT CI 




S1Z F 


460 






661 Bra A* 02 




LDAA X 02 


4*2 nr* n os 




IMS Z 03 


663 BTt DC CA 




LDX I 


644 an a7 04 




STAA X 04 


665 BIA r OS 




SUB Z OS 


666 Z2rC 6r 00 




CU 1 00 


6*7 






4U Bn 94 CA 




UA* t 


4*9 1300 Bt CI 




LDAB >»1 


no 1302 BC CS 




UB r 


671 1304 A7 02 




StAA Z 03 


672 130* 17 03 




STAB 1 05 


673 






674 not A* 04 




UtA* X 0* 


673 130* M OS 




UAS 1 05 


*7t 130C DC Ci 




LDX S 


677 C30K a7 02 




STAA Z 02 


670 UIO U 03 




StAS Z 03 


679 all «r 00 




CU X n 


6*0 

6il 1314 9* d 




LDAA S 


6*2 UU M C9 




UUB tt-1 


6*3 Ull ot a 




UZ F 


*a4 BU A7 04 




STAA X 04 


*I5 UlC t7 05 




STAS X 05 


*B* 

U7 C3U 14 00 




UUkS X 00 


6M B20 27 10 




BIO nOBB 


*Sf 13Z2 2S OB 




ua DAOX. 


690 






HI BU *r 00 




CU Z 00 


692 S3U Bt C* 




LDX 1 


693 1321 U 00 




Die X 00 


694 BU 20 0* 




UA Tvcmr. 


693 






4M ate *r 00 




CU z n 


697 B2B DS Ci 




us s 


*9* Z3XI 6C 00 


nri: 


nc z 00 



-> B<S> 
S -> L<X> 



DOUlUC ROTAXZ UOI ... 

t<x> -> r 



LDAA i 
LDAl S*l 
LOZ t 
STAA X 02 
STAB X 03 



; i.<r> -> 1<S> 



: -> B<i> 

: 1 -> LO^ 



; 1<F> ta> 



: OUX BALAKB rAOOl OF T 



; -> B<r> 
1 -1 -> BOD 



LOS S 




700 






STAA X 04 




TOl 




; TOOCBir ... 


STAB Z 05 




702 B32 H CI 


TOOWT: 


UAA P 


CU Z 00 


I -> KB) 


703 034 B* 




LDAB Ffl 






706 






UAA S 


; S -> L<r> 


705 B3« M Ct 




LDX T 


IDAB *«-l 




70* 133t a 04 




La X 04 


LSI r 




707 B3A K CI 




m t 


STAA I 02 




701 BX 27 09 




BIQ Tur* 


STAB X 03 




709 










710 E33I OS C* 




us T 


LDAB X 00 


. am I4UKI FACTSs or r 


711 1340 a7 02 




STAA Z 02 


BIQ Tonx 




712 Bt2 11 03 




STAB X 03 


SMI son. 




713 1344 CA rr 




ouB #orr 






714 B4* 39 




ITS 


CU X 00 


; -> t<T> 


715 






LDX S 




71* 






ISA lUFO 


; -I -> >a> 9 nOIT ! 1 1 


717 0*7 OS 01 


T0r4i 


ua T 






711 B49 A7 04 




STAA X 04 


CU Z 00 


; -> Ba> 


719 134B 17 03 




STAS X 03 


UK 1 




720 1340 c* rr 




oiAS #orr 


ISA TDTIUC 


: 1 -> sa> 


721 tt4r 39 




m 






722 










723 










724 










983 










914 1**0 




OSC 016*0 






915 










9** 1**0 31 


DimTt 


in 






917 1*«1 31 




US 






9U tt«2 31 




in 






919 1**3 31 




m 






990 1*** 6r 




CLSA 






991 1**5 39 




ITS 






992 










993 1*6* 01 




nor 






994 1*67 01 




mr 



PurAUTiai . 



S<T> - S . OOMFABI 



rAlL MM 

unn CC z - 



irmti a z - 



FORTH DIMENSIONS II /4 
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ThSL HAWDT KgrERPtCg 




lavailtbl* nodca i — 
*t. UnK.d with I rlink 

clink) T 



zero to n byt** 
on* to n bycst 
two bytai 
on* bytt 

tbirty-two to n byt«» 

(••ch nod* i* siitccn byt**) 

<b«lincc IS on« byte) 
l*«ch link ia two byteil 
(k*y It iigbt bytes) 
rtbr«« u«*i d*ein*d bye**) 



root (typical nod*) 



St»c« irtpuis and outpuCK etc Shown; top ot stsck on right. 

Op*r*nd Key: n two byt* nuabci 

* two byt* iignad ntab«r 

u.addr, to, tiom two byt* unsigned nu«b«r 

b on* byte nuab«t or charaetar 

f two byt* bool*an flaq (s*ro or on 

*ddi? conditionally praaant sddi 

A four byt* signed nuBb*r 

{Digits azm soactiaes spp*nd*d lo these operand nsMS.) 
!Dnl*sa unsignsd operands er* indicated, srltbMtic 
operations are twos coaplenent.) 



COHPAXJ SON 




LTI7 


' ■ ~ f ) 


ZERO? 


( n — ( ) 


GTI7 


( • — ( ' 


LT? 


I •! s2 -- ( ) 


L£7 


1 •! 12 — ( ) 


BO? 


i nl n2 — t ) 






GE7 


( Si s2 — f ) 






U)0ltGT7 


1 ul ll5 — ( ) 


SLT7 


1 addrl addrl 


SE07 


( addcl addr2 — 


HeHDRY 




9 


1 addr — n ) 




( n addr — l 


ce 


( addr b ) 


C! 


( b addr — 1 




( n addr — ) 




[ addrl addr 2 — 


CMOVE 


( Ctoa to u — 


NOVE 


( £roa to u — 


SHQVZ 


( £raa to — ) 


LEW 


\ addil addi2 — 


riHD 


1 addrl addrit -- 


Ftt 


t addi — b n ) 


Ml 


1 b n addr — 


'D 


{ s — addr J 



f]L}^ is tru* .j onej If : 

Lass tban saio I ■ < )? 

2«ro ( n ■ ) 7 

Gr*at*r tbsn 1*10 [ s > }7 

L«sa than ( al < b2 ) 7 

Lass thsn or Equal [ si ^ s2 ) 7 

Equal 1 t\L • n2 )? 

Not Equal f nl ^ nl ) 7 

Greater than or Equal ( si ft s2 

Greater than {al > s3)7 

Address Greater than7 4 ul > kj2 

String Lass Than? | scrlng at 

addrl < string at addc2 )? 
Strings Equal? ( string at addrl 

- ttcing at addr2 ) ? 



Replac* addr*ss by contents. 
Store sacond it«« at address on 

top. 

Saplace address by contents, on* 
byte only (right justify i*ro 
padded) . 

Store right byte of second itaa 
at address on top. 

Add second ite« to contents of 
address cm top. 

Swap contents of addrl and •ddr2. 

Nov* u bytas m aswriry 

Hove u double-bytsi in ■— o ry. 

Move string in ■apory. 

Add hey Istrlng) at addrl to tre* 
at addr2. If t - true, then Key 
was inserted at addr?, 
otherwis* tha key was already 
in tree (or tre* Is fuLlI . 

Locat* k*y (string) at addrl in 
traa at addr3. If f true then 
key la at addr?. otbarwiae not 
found. 

Head data troai tree node at addi . 
Store data in tr*e node at addr. 
Compute address of nth byte in 
current Local Area. 



STACK .HAMIPPIATIOII 

OOP ( n — n n 1 

DROP { n ~ ) 

SWAP ( nl n2 — n2 nl ) 

OVER ( nl n2 — nl r2 nl } 

OVERS ( nl n2 nl — nl n2 t\J nl ) 

SROT 1 nl n2 n3 — n2 n3 nl ) 

SWAPDROP ( nl n2 — n2 ) 

DR0P2 ( n n — ) 

0ROP3 ( n n n — ) 

RPD8H ( n — ) 

RPOP ( — n ) 



Duplicata top of stack. 
Throw away top of stack. 
Ravatsa top two stack ittaa. 
Haka copy of aacond itaa on top. 
Haka copy of third lt*» on top. 
Rotate tbitd itaa to top. 
ThccMf away aacend itaa on top. 
Throw away top two. 
Throw away top three. 
Nov* top itaa to return stack. 
RatElev* top itaa froa return 
stack. 

Coaipute addcasa of sth byte on 

return stack. 
Coaputa address of ath byte on 

top { 2 's f « ova 1 . 



ARITHHETIC WD LOGICAL 



/ 

HOD 

HDLE 

DIVE 

OXVMOD 

SEXT 

NEC 

ABS 

HIH 

HKX 

AND 

OR 

XOR 

NOT 

SDCCESD 

FAIL 

SBL 

sa^ 

ROL 
ROR 



( Si s2 — sua ) 

( si s2 — difference ) 

[ si s2 — product ) 
( si s2 — quotient ) 
( si s2 — aodulo ) 
( si s2 — d ) 



( d s — 



qiiot 



( Si s2 — quot aod ) 

{ s ~ d 1 

( s — negation ) 

< s — abaolute ] 

< si s2 — ain } 
( si s2 ~ aaa ] 

( ul u2 -» intaraection ) 

( ul u2 — con:)unction ) 

( ul u2 — disjunction ) 

( u — coBpXaaant } 

i — 1 ) 

( — ) 

( n u ~ n ) 

( n u — n } 

( n u ~ n ) 

( n u — n ) 



Add. 

Subtract ( al - a2 ) . 
Hultiply. 

Divide ( si « s2 } . 
Modulo ( al aod a3 } . 
Hultiply aatandad. 
Divide extended. 
Divide aodulua. 
Sign Extend. 
Negate. 

Abaolute Value. 

Hiniaua. 

Has law. 

Bitwise And. 

Bitwise Oi . 

Bitwise Exclusive Or. 

Bitwise Invaraion. 

On* (true) . 

Zero (falsa) . 

Shift Left In, u tiaas) . 

Shift Right ( n, u tiaas ) . 

Rotate Left ( n, u tiaas I . 

Rotate Right ( n, u tiaes ) 



cowTnot yacjCTTOgs 

DO. ..LOOP 



do: ( and«l start ' 
( itidas ) 



'*-loopt ( n — J 



IT... (ttua»...ri if: < f ) 
:F.. . {trusi . . .ELSE... (falaa) ...ri 



DO. ..XP.. . (true) ...LOOP 

CLSB,. . tfalsa) . . .EXIT n 



RBVKAT. . .OIITXL 



until; ( f — ) 



WILE. .. 

COHTINDZ.. . {true} .. . 
MIILEHD... tfalaa) . . . 

continoa: ( f 

mpyr/ooTPPT 



MESS 
TYPE 

c- 

CRLP 

DDNP 

PRTRCC 

GETUX 

CBBCRKET 
COHVERTK 
ASK 



( addr — 
( addr b - 



1 addr — 

( — ) 



( ~ f ) 
{ — n ) 

{ addr delis count 
t addr dalia — > 



Sat up loop, give index range. 
Place current index value on 
stack. 

Lik* DO... LOOP axeept adds stack 
value (rather than one) to 
indas. 

If top of stack true (nOR-taro) , 
axacut*. 

Saaa, but if false, axacuta ELSE 
clause. 

The EXIT in ELSE clause terslnatas 

loop preaaturely. 
'*'LOOF aay be used in place of 

LOOP, and the LOOP and EXIT 

worda Bay be reversed. 
Loop back to REPEAT until true at 

OKTIL. 

Continue while true at CONTIHUE, 
otherwise leave loop) 
NBILBID loops unconditionally. 



Type aassage (string) st addr. 
Type aaaaage at addr terainatad 

by byte b. 
Type nuaber on top of stack. 
Type one byte nuaber on top. 
Type a Carriage Return, Line Feed. 
Type a Space. 

Type u bytaa starting at addi . 

Type tree at addc . 

Read charactera until dallaiter 

to Global Area K. 
True if K la non-nuaatic. 
Converts string st R to niaiber. 
Read characters to addr until 

dallaiter or count. 
Read characters to addr until 

dallaiter. 
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DETIHISG WORDS 

KIX 

XXX 

COWSTAHT XIX 
UL£A XXX 
' XXI . . . 



— n ) 

— xddr ^ 



: ( — addt ) 
iddrl addi2 — 



TREE XXX 
THEEINIT 

PWX. . -ENOPKOC ptoc: In— ) 
lOJU)...:S load; ( iddrl *ddT2 — 



IWTO 

QUTVF 

PEREAO 



(J — ) 
i u — J 
( u — ) 



DOMBtniT ( 



) 



PZMZSf 
PCNAIT 
PBSLOT 



( addr 
( addr 



B*qin coion-wocd dafinltion of 

XXX. 

End coIon-«ord definition. 
D»«d CO nsM ucbln* lingua^* 

opcratiori. 
Craaec Global varlablt xxx with 

initial valua nt raturna addrca* 

whan axacutad. 
Craata Conacant var Labia xxx vith 

value nr raturna valua whan 

axacutad. 
~r«ac« Global Ar*« xxx of aiza n, 

wLth no initial valua; raturna 

addiaaa whan aiacucad. 
Craata Global Strinq xxx with 

initial value of text typad in 

•fttr xxx dallaitad sy quoca (') ; 

raturna addraaa whan axacutad. 
Craata Global Traa xxx of xlx* 

n nodea, and initializet raturna 

aMfm» whan axacutad. 
Inicialisa Tr*e troa addrl to 

addr2-l luaad for Local or 

praallocatad Traaal . 
Xlloeaca/'Daalloeata n bycea of 

Local Araa on return atack {only 

uaed inaida colon-worda) . 



) LOAD aodifiaa currant Input pointcra 
( addr 1 la addraaa of input strlnq, 
addr2 is addraaa of awchina level 
input aubrotitin*> , ;S reatoraa 
previouB valuea (ueea return 
atack. ..be carefiuiy. 
Begin Camant, dellaited by r igbt 
paren. (up to 8K ebaxactera are 
allowed) . 

Block Itowe of SKbytaa froa page ul to 
page u2. 

Block Move froa Inbox to page u. 
Block Hove froa Page u to Outbox. 
DDMS05 Raad froa Outbox of Cyblok u to 
Inbox. 

Wait for DOKIOS comand alot 

aeknewladge. 
Send seaaaga at addr to Cyblok u. 
Receive aaaaage frov Cyblok u to addr. 
Coapute inalot addraaa for Cyblok u. 



LETTERS 



I would like to point out a pos- 
sible misconception that I noticed in 
one of the judge's comments on page 
54 in the special FD on Case Struc- 
tures. The third itemlisted as an 
"advantage" states "(The) case 
selector is kept on (the) return stack 
instead of in a special variable. 
This allows nesting of CASE con- 
structs." I'd like to point out that 
the FORTH-85 CASE structure, which 
uses a variable (VCASE), is also 
nestable. The reason for this is that 
once a match has been made and execu- 
tion is in progress between, CASE 
. . .END-CASE the contents of VCASE 
have served their purpose. Further 
nesting at this point can alter the 
contents of VCASE without problems. 
When the unnesting occurs, END-CASE 
shoots the Forth instruction pointer 
to the words after the end of the 
case structure. END-CASE does not 
need the older contents of VCASE. If 



the programmer would like to retain 
the selector value, a simple "VCASE @" 
directly after CASE will preserve the 
contents of the stack. Then, for any 
following Forth words having nested 
DO-CASE structures, the problem of 
overwriting is solved. The variable 
storage method takes a little longer 
to retrieve the current selector value 
(i.e. VCASE @ versus DUP, or versus 
I), but retrieving VCASE has not been 
very common in my experience. To me 
VCASE @ is more self-explanatory in 
the context of the program than either 
DUP or I. In addition, my feeling is 
that messing up the return stack so 
the normal index values (I & J) 
cannot be used within a CASE. 
END-CASE phrase, is a definite disad- 
vantage . To solve return stack 
problems like this, advanced Forth 
Systems, such as the one now at Kitt 
Peak or STOIC, have three stacks. The 
extra stack is used explicitly for 
LOOP indices while the rturn stack is 
used for return addresses and tempo- 
rary storage. In lieu of a third 
stack, the VCASE variable presents a 
clear way of handling this situation. 
The variable storage method would 
need to be changed to user variable 
storage if multi-tasking was to be 
implemented. This is only slightly 
more complicated than the current 
version. In my extension, I tried 
both return stack and variable 
methods. I selected the variable 
storage due to speed improvements as 
well as the aguments above. Also, in 
regards to speed, the CALL's and JMP's 
within the code statement for CASES 
are weak in style snce the objective 
in code statements is speed. These 
really should be expanded out (i.e. 
MACRO'd!). My original Intent was to 
make the article do double duty be 
demonstrating these techniques as a 
stepping stone to some debugging 
methods I came up with. 



Bob Giles 
Tulsa, OK 
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THE EXECUTION 
VARIABLE AND ARRAY: 



Michael A. McCourt 
University of Rochester 



A useful programming construct is 
the jump table or 'COMPUTED GO TO' 
type of structure. In Forth the exe- 
cution variable and array can be used. 
The Forth word EXECUTE executes the 
code address on the top of the stack. 
If one defines: 

: XEQ <BUILDS , DOES> EXECUTE; 

a word containing a code address as 
its parameter can be created. As an 
example 

: TEST ." THIS IS A TEST" CR ; 

XEQ FRED ' TEST CFA ' FRED 2+ ! 

The word TEST can now be executed by 
typing FRED. You might ask — why not 
type TEST to execute TEST? The reason 
is that FRED is now a variable — of 
sorts. By changing the contents of 
the parameter stored in FRED the 
action of FRED can be changed. Execu- 
tion arrays are similar, however, here 
several code addresses can be stored 
and later accessed by index number. 
In our Forth system (an updated URTH 
system to Forth-79 running on a 
PDP-11) the Forth code address of zero 
is disallowed and will cause execution 
of the current ABORT procedure which 
itself is contained in a variable, 
i.e. 

: ABORT ABEND @ EXECUTE ; 

All execution variables and arrays 
are initialized to zero so that they 
will have predictable results. 



Three words shown in block 502 
listed below are used to change the 
contents of execution variables and 
arrays. 

INSTALL <name> 

returns the code field address of 
<name> . 

<code addr> IN <XEQ var name> 

stores the code address in the 
parameter field of XEQ name. 

<code addrXarray offset> OFFSET. IN 
< ( )XEQ array name> 

stores the code address at the 
offset in the ( )XEQ array. 

Thus the previous example could be 
written as 

XEQ FRED INSTALL TEST IN FRED 

Note that INSTALL and IN work within 
a colon definition, e.g., 

: DUMMY ; 

: TURN. ON INSTALL TEST IN FRED; 
: TURN. OFF INSTALL DUMMY IN FRED; 

Execution variables are useful for 
a variety of functions such as crea- 
ting forward references, switching 
output and/or input routines among 
several terminals, debug routines and 
of course Implementing a jump table. 

Examples 

1. JUMP TABLE 

Problem : 

Define a function that will per- 
form one of 26 operations depending 
on which control key was typed. 

Possible Solution : 

26 ()XEQ CTRL .KEY 
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INSTALL 1 FUNCTION 1 OFFSET. IN CTRL. KEY 
INSTALL 2FUNCTI0N 2 OFFSET. IN CTRL. KEY 



TTO TEST2 ( CONTROL CHARACTERS FOR 
TPC HAVE NO EFFECT) 



INSTALL 26 FUNCTION 26 OFFSET. IN 
CTRL. KEY 

: OPERATOR? BEGIN KEY DUP 27 <= 

IF CTRL. KEY ELSE DROP THEN AGAIN; 

One could Implement the above with a 
case or select statement, but the 
execution array has less overhead in 
execution speed and memory usage. 

2. MULTITERMINAL DRIVERS 

Problem : 

One has a video terminal with 
addressable cursor and a 'dumb' hard- 
copy terminal. The latter terminal 
does not accept cursor control charac- 
ters gracefully. 

Possible Solution : 

One solution which alleviates this 
problem is shown listed below in block 
500. (Publ. note: we're not printing 
block 500.) The word CTRL is an exe- 
cution variable. When the video ter- 
minal is operating (TTl) all control 
characters are EMIT'ed; however, when 
the printer is installed (TTO) the 
control characters are DROP'ed. 

The words EMIT and KEY are defined 
as state variables as is ABEND (user 
variables might be a familiar name to 
some) and are addressed for multi- 
tasking. They permit each task access 
to its own terminal driver. 

: TEST2 TPC ." TESTING" ; 
( POSITION CURSOR AND PRINT ) 

TTl TEST2 ( 'TESTING' WILL START AT 
POSITION <0,0> ) 



22 LIST ( LISTING SENT TO PRINTER ) 
TTl ( BACK TO DISPLAY ) 

3. FORWARD REFERENCE 

At times early in an applicacion 
program one needs to define an error 
handling routine. However, since none 
of the higher level words have been 
defined the error handling is rather 
primitive. Execution variables allow 
one to 'leave a blank' for the error 
routine. 

Suppose one has 

XEQ DERROR 

<device function code> 
: DIO GO. BIT OR DEVICE .CONTROL ! 
WAIT .FOR.DEVICE .DONE 
DEVICE. STATUS (? 0< IF DERROR THEN ; 

Assume DIO is for control of a mag 
tape drive. At this point in the 
application program DERROR would nor- 
mally be able to do only an ABORT. 
With a tape drive one would prefer to 
have some sort of recovery procedure 
on write errors to either delete the 
last file or at least write an End of 
File mark. With the execution vari- 
able one can install such a high level 
routine at a later time after all the 
necessary words (such as skip record, 
read record, and write EOF) have been 
defined. DERROR could also be defined 
as an ()XEQ array and each error would 
have its own associated error hand- 
ling. 

The previous examples demonstrate 
the power of the <BUILDS . . . DOES> 
Forth constructs. XEQ and ()XEQ are 
just two examples of defining words. 
It is possible to build a wide range 
of such defining words from words that 
build simple linear arrays to ones 
that define complex relational data 
bases. In all cases one is associ- 
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ating a data structure (here, a simple 
code address) with an algorithm for 
using the data (here, EXECUTE the code 
address) and as Wirth has written 
DATA STRUCTURES + ALGORITHMS 
PROGRAMS* 

*Wirth, Niklaus, "Algorithms + Data 
Structures = Programs," Englewood 
Cliffs, Prentice-Hall, Inc. 1976. 



.)XZQ ■•OF ■.'ECTr«S>-<^ . Xli .tJJ(AY 'JJID 

<m;[u3s out . . rtRST p/ju^-fxa * ir vtcroas ■ 

O0ll> DLT * 3 'Id > ' CHECr FOi ^ > lHOVi ) 

ELSE 20tOP 31 A»On 

tlQ 'UriUW . ( -"CODE AJSOt>-<>. CREATf tXEa'TION Vt^TOt 



CXZCUTIOK VAllAlUS Ai4D ARJLAtS CONT'3 : 
{ FOa INSTALUtlON: INSTALL OOITTLIE •JA.IE? In <X1Q !iA«C'> ) 
ISSTALL ( I.ISTALL CNAKE? IN" "(lO' VAIIAILE — SET VECTOR /^Dt ) 

I'; scAit ? IF ;o*tu cfa e;ue cta nuH ; i>tp install 

13 { oceq AOoa>-<>. ih oceo i-aji j(a«i>— sronf ADOti :s xiq > 

:'; STATE J IF COMPILE : ELSI ! THEN ; IMP IK 

OFFSET. IN ( OtEQ AJDRXXEQ .yUUY UOU OFFSET*L>-<> , ) 
DLT 0->- IF 1- 2* j" * • , ZA.'J'T USE IS COMPILE STATE : 



MEETINGS 

NORTHERN CALIFORNIA 
8/23/80 

Ray Dessey, a chemist from Vir- 
ginia Polytechnical Institute in 
Blacksberg, was visiting and he des- 
cribed his recent trip to China. 
FORTH accompanied him embodied in an 
AIM and students at Futan University, 
Shanghai, got a taste of FORTH. Dr. 
Dessey said the University already 
had 3 LSI-ll's with Pertec floppies. 
He also described Virginia Tech's 
teaching/research machine which is a 
network with 3 three terminal hosts 



each having 15 satellite processors. 
FORTH runs under an RT-Il operating 
system. Instrumentation simulation 
(a function generator + noise) is one 
use. 

Bill Ragsdale announced the Asilo- 
mar FORTH retreat (cf., FD Vol. II 
No. 3 for details). 

Kim Harris described OPTIMIST, a 
program which reminded me of a 
cantankerous ELIZA. This FORTH 
program, originally written in PL/1 
by Kildall, exemplifies a SECURED 
vocabulary as part of Kim's tutorial 
on PRIVATE VOCABULARIES. He showed 
how they are produced, tested and 
sealed. 

Howard Pearlmutter discussed 
FIGGRAPH and the "human interface" of 
FORTH. The FIGGRAPH committee is to 
generate and articulate hardware 
specs, goals, and a vocabulary. 
Howard advised us to attend the HOME 
BREW COMPUTER CLUB's showing, via a 
G.E. LIGHT VALVE, of computer 
graphics. (I saw it and it was as 
entertaining as LASERIUM). 

Handouts included: 

- Harris' OPTIMIST and PRIVATE 
VOCABULARY support 

- Zimmer's TERMINAL, a program to 
teach a FORTHed Ohio Scientific 
Instruments OS-650v3 to act dumb 

- FORTH MODIFICATION LABORATORY'S 
CALL FOR PAPERS: (Programming 
methodology. Virtual Machine 
Implementation, Concurrency, 
Language & Compiler, Applica- 
tions, and Standardization. 



HELP WANTED 

SENIOR PROGRAMMER to produce new poly- 
FORTH systems and applications. 
Contact: Carol Ritscher 
FORTH, Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, CA 90254 



Page 111 



FORTH DIMENSIONS II/4 



PROJECT BENCHMARK 



A small, informal group of micro- 
computer enthusiasts here in Albu- 
querque read with interest "Project 
Benchmark" in the June issue of the 
magazine "INTERFACE AGE." We have 
amongst us a variety of systems and 
languages, including 8080, 6800, and 
the AM-100, interpreter and compiler 
versions of BASIC, and fig-FORTH on 
the three system types. We ran the 
benchmark program all around and have 
attached the results of our testing. 

We found the results to be most 
interesting and offer them to the 
members of the Forth Interest Group. 
In addition to the timing results, 
there was also a significant advan- 
tage in memory for the FORTH programs. 
The compiled AlphaBasic program size 
was 192 bytes while the FORTH bench- 
mark program size was 166 bytes. All 
three implementations of FORTH were 
based on the fig model, and the pro- 
gram ran without modification on all 
systems demonstrating the transporta- 
bility achievable with FORTH. 

I have attached a listing 6f the 
FORTH program. The implementation of 
the language for the 8080 and the 6800 
were from fig, while the Alpha Micro 
version was provided by Sierra Com- 
puter Co., Albuquerque, NM. 

George 0. Young III 
Albuquerque, NM 
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HELP WANTED 

FORTH PROGRAMMERS (or ASSEMBLY program- 
mers who want to learn FORTH) . 

Contact: Gary Osumi (714) 453-2345 
Hydro Products, San Diego, CA 
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IPS 

A GERMAN FORTH-DIALECT 

Dr. Karl Meinzer 
Marbach, W. Germany 



The AMSAT-Phase III communication 
satellites for radio-amateurs utilize 
a computer on board for a variety of 
tasks. In order to simplify the 
programming and to allow a simple 
dialogue with the spacecraft the 
language IPS was developed (in 1976). 
It is a Forth-derivative geared very 
strongly towards engineering applica- 
tions (real-time control) and by now 
it is also used in a variety of 
control-related areas. The following 
lines describe the rationale of the 
system and its main differences as 
compared to FORTH. 

Area of Application 

The IPS development was aimed in 
particular towards the "low" end of 
computers. Most control applications 
do not justify a larger computer for 
cost reasons. On the other hand, 
these applications profit most from a 
powerful language processor since the 
common techniques are very clumsy to 
use. The computer I had in mind when 
I designed IPS was at about the level 
of the TRS-80 with 16K bytes of RAM 
(integral video memory and cassette 
for mass storage). For real-world 
interactions control-l/0 and a 20ms 
interrupt must be added to complete 
the system. 

The IPS Language 

An introduction to IPS was given 
in BYTE, Jan. 1979, pp. 146; so here 
I want to explain the difference to 
FORTH. First: for the names I tried 
to find words which are more logical 
in a postfix environment. Take the 
IF ELSE THEN construct, e.g., in IPS 
it is replaced by YES? NO: and THEN. 
This seemed more logical since the IF 



implies a test following. But with 
the preceding test YES? is more appro- 
priate. Of course these fine points 
may not be very important. Others are 
more so: numbers used an truth- 
variable on the stack use only the 
least significant bit. This allows 
the 16-bit logic operators like AND 
OR or XOR to be used consistently with 
truth-variables . 

A major difference is the way names 
are encoded. I did not like the limi- 
tations coming from the 3 characters 
plus length codes; but then neither 
did I want to use more than 4 bytes 
for the code. The following technique 
was adopted: from all characters of 
the name (up to 63), a division 
remainder using the polynomial X24 + 
X7 + X2 + XI + 1 is computed (3 bytes) 
and stored with the length of the 
name. This technique allows abitrary 
names; e.g., MACHINE-Al and MACHINE-A2 
are distinct and not confused by the 
system. 

Theoretically there is a small (10 
to the -7) probability of a collision 
— in practice I never yet encountered 
one. In any case, no harm can come 
from this because in IPS the system 
does not allow the redefinition of 
names. This "advantage" of FORTH was 
dropped very early because from our 
user-feedback it soon became clear 
that it was — directly or indirectly — 
one of the major causes for program- 
ming errors. 

Other plausibility checks were 
added to make the system more for- 
giving against the typical program- 
ming blunders. (I do not believe in 
the FORTH- as sumption that the pro- 
grammer can be perfect — I am a good 
example to the contrary). In fact, a 
few checks can make the system vir- 
tually crashproof. Of course, one has 
to be careful not to get carried away 
with this — if the integrity of the 
system is reduced, much of the power 
of a FORTH-like language goes away. 
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Three examples within IPS: 

During definitions the colon puts 
an unused address on the stack. 
The semicolon checks for this 
number: if it finds a different 
number, most likely a structuring 
error has occurred. The defini- 
tion is removed and an error 
message is written. 

Each word has a unique 2-bit 
identification in the name field 
defining its use in the interpre- 
tive mode. Words like YES?, for 
example, are not executed outside 
definitions — so no "magic effects" 
can result. 

The number of interpreter states 
the programmer has to keep in mind 
is minimized. The base for number 
conversions is set explicitly. 
Numbers like 40 or -721 are 
treated as decimal, #03 or #AF07 
as hexadecimal numbers. 

Real-Time Multiprogramming 

The typical situation with real- 
time control has the processor waiting 
for some event, then executing a task 
— usually very fast — and then again 
waiting for other events. In prac- 
tice, typically the computer must 
attend to a number of such tasks. 
This allows for a fairly simple multi- 
programming concept. The tasks are 
put in a cyclic "chain," an array con- 
taining the addresses of the tasks to 
be executed. The system executed them 
periodically in a roundrobln fashion. 
Provided that none of the tasks 
"grabs" the processor this results in 
a reasonably fair arbitration of pro- 
cessor time and was found sufficient 
for most control applications. Two 
operators are provided to allow 
dynamic and static task allocations: 
INCHAIN and DECHAIN. 

The interpreter/compiler is also 
a task in this sense — it executes one 



word at a time before it returns to 
the chain. This keeps all the 
debugging capability of the inter- 
preter a hand while other tasks are 
executing. 

The system is augmented by the 
concept of "pseudo-lnterrupts . " The 
address interpreter (NEXT) is effec- 
tively a stack-machine which has ideal 
properties for interrupting it — no 
saving is required. If the address 
Interpreter can accept these pseudo- 
lnterrupts between the execution of 
code-routines, a very powerful high- 
level Interrupt-concept is possible. 
In IPS such a pseudo-interrupt is exe- 
cuted every 20ms to keep the keyboard 
alive and for timekeeping purposes. 
Other pseudo-lnterrupts may be added 
as required. 

Signalling to the address inter- 
preter the pseudo-interrupt request 
without creating additional overhead 
is a bit Involved with most pro- 
cessors. Only with the CDP 1802, 
this Is straightforward — the address 
interpreter contains a jump that can 
be made conditional on an external 
signal (External flag). With the 
other processors a real interrupt is 
used to modify the code of NEXT; 
admittedly a less than desirable way 
of programming. Since this occurs 
only at a single point, it was con- 
sidered to be the lesser evil over a 
possibly increased duration of NEXT. 

Handling and Testing 

IPS Is strongly TV-screen 
oriented. This allowed the stack to 
be continuously visible by putting a 
display-program into the chain. For 
debugging it is a great help not 
having to request the stack-content, 
but seeing it continuously. During 
the operation of chain-operators the 
system remains "live," you always can 
go after problems and investigate. 
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Typically, programs are first 
written on cassette with the integral 
text-editor as blocks of 512 bytes 
each. Then the blocks are compiled 
and tested. If necessary, blocks may 
be edited on the cassette and recom- 
piled to solve bugs. Eventually a 
binary dump of the whole program (IPS 
plus application) is produced to 
facilitate fast reloading. 

Experiences So Far 

Primarily, the system was 
developed for the Phase 111 space- 
craft that was launched in May 1980. 
It gave the handling of the satellite 
an unprecedented degree of flexibility 
and at the same time helped to solve 
the rather complex attitude control 
problems with a minimum of pain. The 
spherical trigonometry of the satel- 
lite was solved very elegantly by 
Cordic-type rotation operators rather 
than the conventional solution using 
sines and cosines. This allows a 
geometrical analysis of the problems 
rather than the much more complicated 
alebraic analysis. 

Unfortunately the launcher (ARIANE 
L02) failed and the spacecraft was 
destroyed--a repeat is scheduled for 
early 1982. The ground equipment also 
uses IPS. An English version for the 
8080 using an S-100 bus computer was 
used for the safety surveillance 
computer. 

Furthermore, a large number of 
COSMAC based computers within the 
University of Marburg utilize IPS for 
a number of research-data-acquisition 
tasks. All in all, our experience 
with the system has fully met our 
goals — to simplify real-time control. 

The Problem of Distribution 

With the real-time capabilities 
of IPS, portability of the system is 
much more difficult to achieve than 
with more common language processors — 



the hardware configurations have much 
more connections with the system than 
say with a BASIC interpreter. Typ- 
ically we modify the IPS meta-source 
to match the hardware at hand and then 
run the source through a meta-compi ler 
producing the new system. The lack of 
suitable "sjiandard-computers" having 
the required roal-time hardware exten- 
sions so ta'' has prevented a very 
widespread distribution of IPS. Now 
we have a version running on the 
TRS-80 with a few restrictions; by 
adding some hardware these restric- 
tions go away. As a next step we 
intend to build a meta-compi ler run- 
ning on an unmodified TRS-80. Hope- 
fully this way we can get "out of the 
cycle" and tVais enable a widespread 
distribution of IPS. The large number 
of letters I received after the BYTE 
paper convinced me that the need for 
such a system is very real. I should 
be pleased if this letter also pre- 
sents a stimulus to FORTH programmers 
to add some of the IPS concepts to 
enhance its usefulness for real-time 
control . 



AUTHORS WANTED 



Mountain View Press, the source 
for printed FORTH, will publish, 
advertise and distribute your FORTH 
in printed form. Subscantial royalty 
arrangement . 

Contact: Roy Martens 

Mountain View Press 

PO Box 4656 

Mt. View, CA 940A0 



HELP WANTED 

PROJECT MNAGKR to supervise applica- 
tions and special systems projects. 
Contact: Carol Ritscher 
FORTH, Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, CA 90254 
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THE CASE, SEL, 

AND COND STRUCTURES: 

Peter H. Helmers 
University of Rochester 

The following is a description of 
the three "case-like" structures which 
have been added to URTH for the 
Ultrasound Lab in the Department of 
Radiology at the University of 
Rochester. These three structures 
were evolved from a simpler prototype 
CASE statement developed by Rich 
Marisa at the University's Towne House 
Computer Center and by Larry Forsley 
at the University's Laboratory for 
Laser Energetics. 

Execution Time Operation 

The three structures to be des- 
cribed are the CASE, SEL and COND 
statements. Referring to the examples 
given in figure 1, it can be seen that 
each of these structure types consists 
of a series of one or more clauses 
delimited by the « and » words, and 
enclosed within the appropriate struc- 
ture defining words: 

CASE ... ENDCASE 
SEL ... ENDSEL 
or, COND . . . ENDCOND 

Each can have an optional OTHERWISE 
clause which is executed if none of 
the other clauses is executed. 

These structure types differ in 
how a given clause is selected for 
execution; thus the description of 
each type which follows will try to 
elucidate their difference. 

The COND structure is a more 
readable syntax for a series of 
nested IF. . .ELSE. . .THEN statements. 
The COND structure consists of a 
series of clauses with explicitly 
specified conditions and associated 



actions which are executed if the 
condition is satisfied. Only the 
first clause whose condition is met 
Is executed in a given execution of 
the structure. The integer on the top 
of the parameter stack is destroyed 
after execution. The TEST-COND 
definition shown in figure 1 is an 
example of the syntax of this 
structure. 

The SEL structure is similar to 
the COND structure except that It uses 
an implicit test for equality to an 
explicitly specified integer value. 
Thus when the top of the parameter 
stack value matches that used within 
the SEL clause, the associated action 
is taken. As with the COND statement, 
only the first clause selected will 
be executed in a single pass through 
the structure. Additionally, the 
integer value tested is removed from 
the top of the stack after execution. 
An example of this structure is the 
TEST-SEL definition shown in figure 1. 

The CASE structure is in turn 
similar to the SEL structure except 
that it uses both an Impllcllt test 
for •equality, and an implicit number- 
ing of the case clauses , starting with 
1 for the first clause. Thus an 
explicit test value does not have to 
be specified. In operation, for 
example, a value of three on the top 
of the parameter stack would cause 
execution of the third clause in a 
CASE statement, if it exists. Note 
that the CASE value on the top of the 
parameter stack is dropped after each 
pass through the structure. 

Compiler Operation 

The words «, WHEN, and » are 
used In common by all three types of 
structures; thus these words' com- 
piling operations are dependent on the 
type of structure being used. This 
"type" Information is determined by 
the Integer on the top of the para- 
meter stack at compile time — which is 
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set in turn by the words: CASE, SEL, 
or COND. These structure defining 
words each put two Integer values on 
the stack. The next to top of the 
stack value is a flag value of zero 
which is used by the structure termi- 
nating words (ENDSEL, etc.) when they 
link up branch addresses. The top of 
stack value reflects the type of 
structure being used as summarized 
here: 

-2 COND structure 

-1 SEL structure 

>^0 CASE structure; this integer 
Is actually the value of 
the previous CASE clause 
which was compiled. 

The «, WHEN, and » words thus 
analyze the top of stack value to 
determine what words are to be com- 
piled into the new word's parameter 
list. For example, WHEN for a SEL 
structure compiles the words OVER = 
and IF into the new word's definition. 



STIUCTURE EXAMPLES - PHH - 8 22 80 ) 

tllST ; 

SEOOM) ; 

THIIO ; 

WHO-UWWS? ; 

OtK ; 

HEC-THIRTT-THBEE ; 
FIVE ; 

LESS-THA»-NEG-TWO ; 
CUATER-THAN-OKE ; 

snujcrosE tests - con't - phh - 8 22 so ) 

TEST-CASE 
CASE 

« FIRST » 

« SECOND » 

« THIRD » 
OTHERUISE VAiO-KNOUS? 
ENDCASE ; 

TEST-SEL 
SEL 

« 1 WHEN ONE » 

« -33 WHEN MEC-THIRTT-TIWEE » 

« 5 WHEN FIVE » 
OTHERWISE WHO-KNOWS? 
ENDSEL ; 

tEST-COND 
COND 

« -2 < WHEN LESS-THAN-NEG-TWO » 
« 2 >- WHEN OREATER-THAH-ONE » 

OTHERWISE CR 

ENDCOND 



FIGURE 1 



The examples of the structures in 
figure 1 illustrate their respective 
syntaxes. Figures 2 through 4 are 
outputs from a FORTH debugger (de- 
compiler) which emphasize the dif- 
ferent compilations of «, WHEN, and 
>> for each type of structure. (Note 
that the results of the compilation 
process are listed to the left, while 
the corresponding high level compiler 
words are at the right.) By studying 
the definitions of these structural 
words in figure 5 in conjunction with 
the examples and the debugger outputs, 
operation should be easily adapted to 
other FORTH systems. 



OK DEBUG TEST-COND 
TEST-COND LINKED TO 332D 
: DEFINITION 

3376 1439 OUP 

3378 0111 LIT FFFE 
337C 17DB < 
337E 07FD $IF 3388 



3382 32B7 LESS-THAN-NEG-TWO 

3384 0810 $ELSE 339A 

3388 1439 DUP 

338A 1361 2 
338C 1806 >- 

338E 07FD $IF 3398 

3392 32CF CREATE R-THAN-ONE 

3394 0810 $ELSE 339A 

339B 1A6B CR 

339A 13BB DROP 

339C 01C8 S; 
OK 



« 



WHEN 



» 
« 



WHEN 
» 

ENDCOND 
Fia'RE 2 



) 

)~ 
) 



OK DEBUG TEST-SEL 
TEST-SEL LINKED TO 32E3 
: DEFINITION 
332D 07B4 1 
332F 142C OVER 
3331 17BE - 
3333 07FD $IF 333D 
3337 327A ONE 
3339 0810 SELSE 3363 
333D 0111 LIT FFDF 
3341 142C OVER 
3343 17BE - 
3345 07FD $IF 334F 
3349 3292 NEG-THIRTY-THREE 

334B 0810 $ELSE 3363 

334F 0111 LIT 0005 
3353 142C OVER 
3355 17BE - 
3357 07FD $IF 3361 
335B 392E FIVE 
335D 0810 SELSE 3363 
3361 326F WHO-KNOWS? 

3363 13BB DROP 

3365 01C8 $; 
OK 



WIfflN 



) 
) 



WHEN 



— » 



) 
) 



» 

ENDSEL 



FIGURE 3 
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OK DEBUG TEST-CASE 
TEST-CASE LIWCE3 TO 32D2 
: DEFINITIOH 

32E3 0111 LIT 0001 ) 
32E7 U2C OVER ) 
32E9 17BE - ) 
32EB 07FD SIF 32F5 ) 
32EF 3242 FIRST 

32FI 0810 SELSE 331B 

32F5 0111 LIT 0002 
32r9 142C OVER 
32FB 178E - 
32FD 07FD $1F 3307 
3301 3250 SECOND 
3303 0810 $ELSE 331B 
3307 0111 LIT 0003 
330B 142C OVER 
330D 17BE - 
330F 07FD SIF 3319 
3313 325D THIRD 
3315 0810 SELSE 331B 
3319 326F UHO-KNOWS? 

331B 13BB DROP 

331D 01C8 S; 
OK 



) 

) 

) 



) 
) 

) 



» 



« 



» 

~ ENDCASE 



FIGURE 4 



MEETINGS 

NORTHERN CALIFORNIA 
9/27/80 

Dave Lion announced availablllity 
of his 6800 assembler in FORTH occu- 
pying 1.5 Kbytes of 4 screens. 

Tom Zimmer annonced availability 
of his Tiny Pascal in FORTH; Ragsdale 
again lauded Tom's effort as a bench- 
mark (cf., MEETING REPORT, FD vol. 11 
No. 3, p. 59). 

Martin Schaaf announced committee 
formation for specifying a FORTH 
machine's hardware. 



( FORTH COHTROl STRUCTURES ) BASE 9 HEX 
: !CADR UPARAM - , ; 
: NOT 

XF ELSE I THEN ; 
: WHILE 

HERE i IMP UHILE 
: FEKFOSM 

* OOP !CADR 

' <R iCADR ' SIF !CADR 

HERE , : IMP PERFORM 
: EMDUHILE 

HERE SWAP ! ' a> ICADR 

' NOT iCADR ' SIF ICADR , ; 
IMP ENDUHILE 
BASE ! :S 



( FORTH CONTROL STRUCTURES ) BASE 9 HEX 
: UNTIL i IMP UNTIL 
: CASE 0; IMP CASE 
: SEL -1 i IMP SEL 

: COND -2 ; IMP COND ( DO CONDITIONAL BRANCH ) 

: » 

' SELSE !CADR , HERE 
SWAP ! HERE 2 - SWAP ; IMP » 
: ENDSEL DROP ( CASE#/FLAG ) 
HERE 

UHILE OVER PERFORM 

DUP ROT ! EHDWHILE 

2DR0P ' DROP ICADR ; 
: ENDCASE ENDSEL ; : ENDCOND SEL : 

IMF ENDSEL IMP ENDCASE IMP ENDCOND 
BASE I :$ 



( FORTH CONTROL STRUCTURES ) BASE 9 HEX 
: V«EN 

DUP -2 - 

IF ' OVER ICADR 
' - ICADR 

THEN 

' SIF ICADR 

HERE , ; 
: « DUP 0< IF 

DUP -2 - IF ' DUP ICADR THEN ( COND ) 

ELSE ' LIT ICADR 1+ DUP , WHEN THEN ; 
IMP « IMP WHEN 
: OTHERWISE ; IMP OTHERWISE 
BASE I ;S 

FIGURE 5 



Henry Laxen of ORTHOCODE Corp. made 
freely available a FORTH "WORDSTAR"- 
styled Editor and announced sale of 
GOING FORTH, the tutorial package on 
8" disk by CREATIVE SOLUTIONS. 

Eric Welch, the FORTH Programming 
Team Manager for FRIENDS-AMIS' pocket 
computer project, gave an in-depth 
description of his job. A philosophy 
of team organization and control was 
graphed and an iterative planning 
strategy delineated. Some problems 
encountered and solved by this manage- 
ment strategy included: 

- wheel-reinvention, duplication and 
redundancy prevention 

- tool development (much effort was 
spent on tracers, patches, simu- 
lators, target compiler, break- 
points and documentation and its 
maintenance) 

- style adherence (readability and 
maintainability) in development 
and documentation 

- programming environment (which, in 
FORTH, is relatively worse due to 
newness and inexperience) — here 
the solution entails the project 
manager's close involvement and 
intense team interaction 

- accountability of time spent at 
each level of the plan 
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How to form a FIG Chapter: 

1. You decide on a time and place 
for the first meeting in your 
area. (Allow about 8 weeks for 
steps 2 and 3.) 

2. Send to FIG in San Carlos, CA 
a meeting announcement on one 
side of 8-1/2 x 11 paper (one 
copy is enough) . Also send 
list of ZIP numbers that you 
want mailed to (use first three 
digits if it works for you). 



San Diego 
Thursdays 



Seattle 
Various times 



Potomac 
Various times 



FIG Meeting, 12:00 
noon. Call Guy Kelly 
at (714) 268-3100 
X 4784 for site. 



Contact Chuck Pliske 
or Dwight Vandenburg 
at (206) 542-8370. 



Contact Paul van der 
Eijk at (703) 354-7443 
or Joel Shprentz at 
(703) 437-9218. 



3. FIG will print, address and 
mail to members with the ZIP's 
you want from San Carlos, CA. 

4. When you've had your first 
meeting with 5 or more atten- 
dees then FIG will provide you 
with names in your area. You 
have to tell us when you have 
5 or more. 

Northern California 

4th Saturday FIG Monthly Meeting, 
1:00 p.m., at Liberty 
House Department Store, 
Hayward, CA. FORML 
Workshop at 10:00 a.m. 

Southern California 

4th Saturday FIG Meeting, 11:00 a.m. 

Allstate Savings, 8800 
So. Sepulveda, L.A. 
Call Phillip Wass, 
(213) 649-1428. 



Texas 

Various times 



FIGGRAPH 
11/15/80 
12/13/80 



Massachusetts 
3rd Wednesday 



FORTH for computer 
graphics. 2:00 p.m. 
at Stanford Medical 
School, #M-112 at Palo 
Alto, CA. 



MMSFORTH Users Group, 
7:00 p.m., Cochltuate, 
MA. Call Dick Miller 
at (617) 653-6136 for 
site. 



Contact Jeff Lewis at 
(713) 729-3320 or John 
Earls at (214) 661-2928 
or Dwayne Gustaus at 
(817) 387-6976. John 
Hastings (512) 835-1918 



Arizona 

Various times Contact Dick Wilson at 
(602) 277-6611 x 3257. 

Oregon 

Various times Contact Ed Krammerer 
at (503) 644-2688. 

New York 

Various times Contact Tom Jung at 
(212) 746-4062. 

Detroit 

Various times Contact Dean Vieau at 
(313) 493-5105. 



Japan 

Various times 



Contact Mr. Okada, 
President, ASR Corp. 
Int'l, 3-15-8, Nishi- 
Shimbashi Manato-ku, 
Tokyo, Japan. 



Publishers Note: 

Please send notes 
about your meetings. 



(and reports) 
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